mgr=.f.
do pmod0